home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2009 February / PCWFEB09.iso / Software / Shareware / IDimager Personal 4.2.0.3 / setup_IDimager_Personal_V4.exe / {app} / web / modules / resulttable.psc < prev    next >
Text File  |  2008-06-09  |  810b  |  30 lines
  1. %code
  2.  
  3. %include storeddata.inc %/include
  4. %include resulttable.inc %/include
  5.  
  6. var
  7.   AItems: TCatalogItems;
  8.   APage: Integer;
  9.   ACount: Integer;
  10.   ASize: Integer;
  11. begin
  12.   if not FindStoredData (Request.Params.Values['ds'], AItems, False) then
  13.     exit;
  14.  
  15.   APage := 1;
  16.   if IsValidNumberString(Request.Params.Values['page'], False) then
  17.     APage := StrToInt(Request.Params.Values['page']);
  18.  
  19.   ACount := 0;
  20.   if IsValidNumberString(Request.Params.Values['count'], False) then
  21.     ACount := StrToInt(Request.Params.Values['count']);
  22.  
  23.   ASize := 0;
  24.   if IsValidNumberString(Request.Params.Values['thumbsize'], False) then
  25.     ASize := StrToInt(Request.Params.Values['thumbsize']);
  26.  
  27.   result := IncludeResultTable (AItems, Request.Params.Values['ds'], APage, ACount, ASize);
  28. end;
  29.  
  30. %/code